home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #14 / Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO / wildcat / sl_wctc.zip / SL-WCTC.WCX (.txt) < prev   
Wildcat! WCX  |  1996-01-09  |  3KB  |  105 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  3332 bytes  01/28/123  10:06:04pm
  3. '! Code Segment Size  :923 bytes
  4. '! Data Segment Size  :5151 bytes
  5. '! String Segment Size:2409 bytes
  6. '! Compiled with WCC version 4.12
  7.  
  8.       Declare Function Func630 As Integer
  9.       Declare Function Func827 As Integer
  10.  
  11.       Dim ur4463 As UserRecord
  12.       Dim s5137 As String
  13.       Dim i5141 As Integer
  14.       Dim i5143 As Integer
  15.       Dim i5145 As Integer
  16.       Dim d5147 As Date
  17.       Dim i5149 As Integer
  18.  
  19.       Dim l65530_ As Long
  20.       Dim i65534_ As Integer
  21.  
  22.       CarrierCheck(-1)
  23.       If ANSIDetected Then
  24.         Func827
  25.       End If
  26.    63 i5145 = 0
  27.       i5141 = 0
  28.       s5137 = "@08@** UNREGISTERED **"
  29.    84 Do While GetNextUser(ur4463, 1213417543) And Not DisplayStopped
  30.         If i5141 < 10 Then
  31.           CurrentDate d5147
  32.           If FormatDate(d5147, "mm/dd/yy") = FormatDate(ur4463.LastCall.D, "mm/dd/yy") Then
  33.             i5145 = 1
  34.             i5149 = ur4463.DailyDl
  35.             If Local Then
  36.               Print ""; " "; "@0F@"; Pad(ur4463.Name, 24);
  37.               Print "  @0C@Local Logon"
  38.             End If
  39.   244       If Not Local Then
  40.               Print FormatDate(d5147, "mm/dd/yy");
  41.               Print ""; " "; "@0F@"; Pad(ur4463.Name, 24);
  42.               Print "@0D@"; Pad(ur4463.From, 26);
  43.               Print "@0B@"; Pad(FormatDate(ur4463.Usersince, "mm/dd/yy"), 16);
  44.               Print "@0C@"; i5149;
  45.               Print Pad("", 2);
  46.               Print ur4463.DailyDK
  47.               i5141 = i5141 + 1
  48.             End If
  49.           End If
  50.         End If
  51.   426 Loop
  52.   432 If i5145 = 1 Then
  53.   468   For i5143 = 1 To 10 Step 1
  54.           Print s5137
  55.         Next
  56.   549   WaitEnter 
  57.         Func630
  58.         WaitEnter 
  59.       End If
  60.   562 If i5145 = 0 Then
  61.         Print ""; " "; "@0A                            ** There are no Callers yet Today! **"
  62.         Print ""
  63.         WaitEnter 
  64.         Func630
  65.         WaitEnter 
  66.       End If
  67.   621 End 
  68.  
  69. '! Called 2 times
  70.       Function Func630 As Integer
  71.         Print "@CLS@"
  72.         Print ""
  73.         Print "          @79@              @71@ @79@ @7B@ @79@                        @7B@ @79@ @71@ @79@              @07@"
  74.         Print "          @77@              @71@-@79@=@7B@≡@79@ Todays Callers ver 1.O@77@ @7B@≡@79@=@71@-@77@             @79@ @07@"
  75.         Print "          @77@     @79@If you Like Todays Callers,  then just sent $10.00   @01@"
  76.         Print "          @77@   @79@to the address listed below.   With Registration you   @01@"
  77.         Print "          @77@   @79@get the capability@77@ @79@of listing as many callers as you   @01@"
  78.         Print "          @77@   @79@had that day, not just the internal limit of ten.You   @01@"
  79.         Print "          @79@   also get @77@ @79@another  fully  functional  menuing system   @01@"
  80.         Print "          @79@   that  lists@77@ @79@Todays Callers, Yesterdays callers,  and   @01@"
  81.         Print "          @79@   a complete@77@ @79@statisticts generator. All the wcx's have   @01@"
  82.         Print "          @79@   the  same@77@ @79@ artistic look to them as does the program   @01@"
  83.         Print "          @79@   you are@77@ @79@running now.   So if you can use these  nice   @01@"
  84.         Print "          @79@   utilities then just send in that Registration to:      @01@"
  85.         Print "          @77@   @79@                                                       @01@"
  86.         Print "          @77@   @79@John Lang                 Comments and or Suggestions  @01@"
  87.         Print "          @77@   @79@9077 Tag Drive@77@              @79@call InSider Trading BBS@@77@ @79@ @01@"
  88.         Print "          @79@   Cincinnati, OH 45231              5i3-931-0755         @01@"
  89.         Print "          @79@                                                          @07@"
  90.         Print ""
  91.       End Function
  92.  
  93. '! Called 1 time
  94.       Function Func827 As Integer
  95.         Print "@CLS@"
  96.         Locate 1, 1
  97.         Print "                       @09@WelCome To ToDays Callers ver 1.O@07@"
  98.         Print "                            @01@ @07@   @88@*UNREGISTERED*@07@"
  99.         Print "                      @09@      @08@-@01@=@09@≡@07@ @0B@Coded by Sleppy@07@ @09@≡@01@=@08@-@07@"
  100.         Print ""
  101.         Print "  @08@──@01@──@09@────────@01@──@08@─  @09@ @08@   ──@01@──@09@────────────@01@──@08@── @0B@ @09@ @0B@  @08@─@01@─@09@─────────@01@─@08@─ @07@  @0B@Todays Stats"
  102.         Print "       USER  @08@      @0E@ @0B@      Calling From      @09@ @0B@ @09@ @0B@ @0C@ @08@ @0B@User Since@09@   @07@  @01@ @0C@Dl @01@ @0C@Dlk"
  103.         Print " @08@──@01@──@09@───────────@01@──@08@──   ──@01@──@09@────────────@01@──@08@──  @0B@ @08@ @0E@ @08@─@01@─@09@─────────@01@─@08@─@07@   @08@─@01@─@09@───────@01@─@08@─"
  104.       End Function
  105.